home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / pcgames.arc / BLOCK.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-20  |  1.5 KB  |  51 lines
  1. 0  REM by Benton Fowler, rt 1 box 247h lacrescent mn 55947
  2. 100  CLS:DEF SEG:POKE 106,0
  3. 110  COLOR 7:SCREEN 0,1,1
  4. 120  CLS:LOCATE 1,1,0,7,7:FLAG=0
  5. 130  COLOR 10:FOR Z=1 TO 79:LOCATE 1,Z:PRINT "CSRLIN";:LOCATE 25,Z:PRINT "CSRLIN";:NEXT
  6. 140  COLOR 2:FOR X=2 TO 24:LOCATE X,1:PRINT "CSRLIN";:LOCATE X,79:PRINT "CSRLIN";:NEXT
  7. 150  LOCATE 1,1
  8. 160  P1O=80\3:P2O=80\3+80\3
  9. 170  P1D=12:P2D=12
  10. 180  LOCATE P1D,P1O:COLOR 12:PRINT "CSRLIN";
  11. 190  LOCATE P2D,P2O:COLOR 4 :PRINT "CSRLIN";:P1OINC=1:P2OINC=-1                     
  12. 195  WHILE INKEY$<>"":WEND:LOCATE 18,30:COLOR 11:PRINT "HIT ANY KEY TO START"
  13. 196  IF INKEY$="" THEN 196
  14. 197  GOSUB 900
  15. 200  R$=INKEY$:FOR Z=1 TO 200:NEXT
  16. 210  IF R$="A" OR R$="a" THEN P1OINC=-1:P1DINC=0
  17. 220  IF R$="K" OR R$="k" THEN P2OINC=-1:P2DINC=0
  18. 230  IF R$="W" OR R$="w" THEN P1DINC=-1:P1OINC=0
  19. 240  IF R$="O" OR R$="o" THEN P2DINC=-1:P2OINC=0
  20. 250  IF R$="D" OR R$="d" THEN P1OINC=1:P1DINC=0
  21. 260  IF R$=";" OR R$=":" THEN P2OINC=1:P2DINC=0
  22. 270  IF R$="X" OR R$="x" THEN P1DINC=1:P1OINC=0
  23. 280  IF R$="." OR R$=">" THEN P2DINC=1:P2OINC=0
  24. 290  P1O=P1O+P1OINC:P2O=P2O+P2OINC
  25. 300  P1D=P1D+P1DINC:P2D=P2D+P2DINC
  26. 310  IF SCREEN(P1D,P1O)<>32 THEN 1000
  27. 320  IF SCREEN(P2D,P2O)<>32 THEN 2000
  28. 330  LOCATE P1D,P1O:COLOR 12:PRINT "CSRLIN";
  29. 340  LOCATE P2D,P2O:COLOR 4:PRINT "CSRLIN";
  30. 350  GOTO 200
  31. 900  CLS
  32. 910  COLOR 7:SCREEN 0,1,1
  33. 920  CLS:LOCATE 1,1,0,7,7:FLAG=0
  34. 930  COLOR 10:FOR Z=1 TO 79:LOCATE 1,Z:PRINT "CSRLIN";:LOCATE 25,Z:PRINT "CSRLIN";:NEXT
  35. 940  COLOR 2:FOR X=2 TO 24:LOCATE X,1:PRINT "CSRLIN";:LOCATE X,79:PRINT "CSRLIN";:NEXT
  36. 950  LOCATE 1,1
  37. 960  P1O=80\3:P2O=80\3+80\3
  38. 970  P1D=12:P2D=12
  39. 980  LOCATE P1D,P1O:COLOR 12:PRINT "CSRLIN";
  40. 990  LOCATE P2D,P2O:COLOR 4 :PRINT "CSRLIN";:P1OINC=1:P2OINC=-1:GOTO 290
  41. 995  RETURN
  42. 1000  IF SCREEN(P1D,P1O)=219 THEN PLR$="1":GOTO 3000
  43. 1100  GOTO 320
  44. 2000  IF SCREEN(P2D,P2O)=219 THEN PLR$="2":GOTO 3000
  45. 2100  GOTO 320
  46. 3000  IF SCREEN(P1D,P1O)=219 THEN FLAG=FLAG+1:LOCATE P1D,P1O:COLOR 28:PRINT "CSRLIN";
  47. 3100  IF SCREEN(P2D,P2O)=219 THEN FLAG=FLAG+1:LOCATE P2D,P2O:COLOR 20:PRINT "CSRLIN";
  48. 3150  IF FLAG=2 THEN FLAG=0:PLR$=" I AND II"
  49. 3200  LOCATE 17,30:PRINT "PLAYER ";PLR$;" GAME OVER"
  50. 3300  FOR Z=1 TO 5000:NEXT:CLS:RUN
  51.